home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
008a
/
fglqbx10.zip
/
12-07.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
682b
|
39 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
OldMode = FGgetmode
FGsetmode(FGautomode)
IF FGmouseini < 0 THEN
FGsetmode OldMode
FGreset
STOP
END IF
FGsetcolor 15
FGrect 0, FGgetmaxx, 0, FGgetmaxy
FGmousevis 1
Count = 0
WHILE Count = 0
FGwaitfor 54
FGmousebut 1, Count, X, Y
FGmousepos X, Y, Buttons
StatusString$ = "X="+LTRIM$(STR$(X))+" Y="+LTRIM$(STR$(Y))+" count="+LTRIM$(STR$(Count))+" "
FGmousevis 0
FGsetcolor 15
FGrect 0, FGxconvert(25), 0, FGyconvert(1)
FGsetcolor 0
FGlocate 0, 0
FGtext StatusString$, 24
FGmousevis 1
FGmousebut 2, Count, X, Y
WEND
FGsetmode OldMode
FGreset
END